With G2antt1
	.BeginUpdate 
	.Columns.Add "Tasks"
	With .Chart
		.LevelCount = 2
		.PaneWidth(0) = 40
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = exHistogramAllItems
		With .Bars.Item("Split")
			.Pattern = exPatternBDiagonal
			.Shape = exShapeThinUp
			.Color = RGB(0,0,128)
		End With
		With .Bars.Add("Task:Split")
			.Color = RGB(0,0,128)
			.Shortcut = "WorkingTask"
			.Pattern = exPatternBDiagonal
			.HistogramPattern = exPatternBDiagonal
			.HistogramType = exHistOverAllocation
		End With
		With .Bars.Item("Task")
			.Color = RGB(0,0,255)
			.Pattern = exPatternFDiagonal
			.HistogramType = exHistOverAllocation
			.HistogramPattern = exPatternFDiagonal
		End With
	End With
	With .Items
		h = .AddItem("True")
		.AddBar h,"WorkingTask",#6/23/2005#,#6/29/2005#
		.ItemBar(h,"",exBarEffort) = 4
		.ItemBar(h,"",exBarKeepWorkingCount) = True
		h = .AddItem("False")
		.AddBar h,"Task",#6/23/2005#,#6/29/2005#
		.ItemBar(h,"",exBarEffort) = 4
		.ItemBar(h,"",exBarKeepWorkingCount) = False
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Tasks"
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	With .Items
		.AddBar .AddItem("Task 1"),"Task",2,4
		.AddBar .AddItem("Task 2"),"Task",6,10
	End With
	.EndUpdate 
End With

' DateChange event - Occurs when the first visible date is changed.
Private Sub G2antt1_DateChange()
	With G2antt1
		.Chart.FirstVisibleDate = 0
		.ScrollPartEnable(exHChartScroll,exLeftBPart) = False
	End With
End Sub

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = "<%i%>"
		End With
		.UnitWidth = 24
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #12/24/2000#
		.LevelCount = 2
		With .Bars.Add("Custom")
			.Shape = exShapeEmpty
			.StartShape = exShapeIconUp1
			.EndShape = exShapeIconEmpty
		End With
	End With
	With .Items
		.AddBar .AddItem(""),"Custom",#1/2/2001#,#1/2/2001#,"K1","This TYPE of bar can not be resized."
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/27/2000#
		.PaneWidth(False) = 64
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.NonworkingDaysPattern = exPatternEmpty
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.ItemNonworkingUnits(h2,False) = "weekday(value) = 1"
		.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/27/2000#
		.PaneWidth(False) = 64
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.ItemNonworkingUnits(h2,False) = "weekday(value) = 1"
		.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #1/1/2008#
		.PaneWidth(False) = 0
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.FullRowSelect = exRectSel
	.SingleSel = False
	.ReadOnly = exReadOnly
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.LinesAtRoot = exLinesAtRoot
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(200,225,242)
	With .Columns
		.Add "A"
		With .Add("B")
			.AllowSizing = False
			.Width = 24
		End With
		With .Add("C")
			.AllowSizing = False
			.Width = 24
			.Def(exCellHasCheckBox) = 1
			.PartialCheck = True
		End With
		With .Add("D")
			.AllowSizing = False
			.Width = 24
			.Def(exCellHasRadioButton) = 1
		End With
	End With
	With .Items
		h = .InsertItem(,,"Group 1")
		h1 = .InsertItem(h,,16)
		.CellValue(h1,1) = 17
		h1 = .InsertItem(h,,2)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,,2)
		.ItemBackColor(h1) = RGB(240,240,240)
		.CellValue(h1,1) = 9
		.ExpandItem(h) = True
		h = .InsertItem(,,"Group 2")
		.CellValueFormat(h,2) = exHTML
		h1 = .InsertItem(h,,16)
		.CellValue(h1,1) = 9
		h1 = .InsertItem(h,,12)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,,2)
		.CellValue(h1,1) = 2
		.ExpandItem(h) = True
		.SelectItem(h) = True
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #1/1/2008#
		.PaneWidth(False) = 0
		.LevelCount = 2
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 0
			.Add #1/4/2008#
			.Add #1/5/2008#
			.Add #1/6/2008#
		End With
		.SelectLevel = 1
		.SelectDate(#1/5/2008#) = True
	End With
	.EndUpdate 
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Items.AllowCellValueToItemBar = True
	.Columns.Add "Task"
	With .Columns.Add("Working")
		.Def(exCellValueToItemBarProperty) = 258
		.Editor.EditType = SpinType
	End With
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 96
		.AllowLinkBars = False
		.AllowCreateBar = exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L1",h1,"",h2,""
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,""
		.AddLink "L2",h2,"",h3,""
		.Link("L2",exLinkText) = "FF"
		.Link("L2",exLinkStartPos) = 2
		.Link("L2",exLinkEndPos) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L3",h4,"",h3,""
		.ItemBar(0,"<*>",exBarKeepWorkingCount) = True
		.SchedulePDM .FirstVisibleItem,""
	End With
	.EndUpdate 
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Items.AllowCellValueToItemBar = True
	.Columns.Add "Task"
	.Columns.Add("Working").Def(exCellValueToItemBarProperty) = 258
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 96
		.AllowLinkBars = False
		.AllowCreateBar = exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L1",h1,"",h2,""
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,""
		.AddLink "L2",h2,"",h3,""
		.Link("L2",exLinkText) = "FF"
		.Link("L2",exLinkStartPos) = 2
		.Link("L2",exLinkEndPos) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L3",h4,"",h3,""
		.ItemBar(0,"<*>",exBarKeepWorkingCount) = True
		.SchedulePDM .FirstVisibleItem,""
	End With
	.EndUpdate 
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		.AllowCreateBar = exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "FF"
		.Link("L2",exLinkStartPos) = 2
		.Link("L2",exLinkEndPos) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4"
		.AddLink "L3",h4,"K4",h3,"K3"
		.ItemBar(0,"<*>",exBarKeepWorkingCount) = True
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		.AllowCreateBar = exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "FF"
		.Link("L2",exLinkStartPos) = 2
		.Link("L2",exLinkEndPos) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4"
		.AddLink "L3",h4,"K4",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub G2antt1_BarResize(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		.AllowCreateBar = exNoCreateBar
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub G2antt1_ScrollButtonClick(ByVal ScrollBar As EXG2ANTTLibCtl.ScrollBarEnum,ByVal ScrollPart As EXG2ANTTLibCtl.ScrollPartEnum)
	With G2antt1
		Debug.Print( ScrollBar )
		Debug.Print( ScrollPart )
	End With
End Sub

With G2antt1
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartVisible(exHScroll,exLeftB2Part) = True
	.ScrollPartVisible(exHScroll,exRightB6Part) = True
	.ScrollPartVisible(exHScroll,exRightB5Part) = True
	.ScrollBars = exDisableNoHorizontal
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub G2antt1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With G2antt1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With G2antt1
	.Columns.Add("Default").Def(exCellValueFormat) = 1
	With .Items
		.AddItem "This is a link: <aex.com;1>www.exontrol.com</a>"
		.AddItem "This is a link: <aex.net;2>www.exontrol.net</a>"
	End With
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub G2antt1_DblClick(Shift As Integer,X As Single,Y As Single)
	With G2antt1
		.Edit 
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EditType
	.Columns.Add("Edit2").Editor.EditType = EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate 
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub G2antt1_DblClick(Shift As Integer,X As Single,Y As Single)
	With G2antt1
		.Edit 
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EditType
	.Columns.Add("Edit2").Editor.EditType = EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate 
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
	With G2antt1
		Debug.Print( "Old-Value:" )
		Debug.Print( .Items.CellValue(Item,ColIndex) )
		Debug.Print( "New-Value:" )
		Debug.Print( NewValue )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EditType
	.Columns.Add("Edit2").Editor.EditType = EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate 
End With

' FilterChange event - Occurs when the filter was changed.
Private Sub G2antt1_FilterChange()
	With G2antt1
		.FilterBarCaption = .Items.VisibleCount
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptContainsAll
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With G2antt1
		.BeginUpdate 
		h = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ClearItemBackColor G2antt1.Background(&H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition)
			.ItemBackColor(h) = RGB(240,250,240)
		End With
		.Background(&H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition) = h
		.EndUpdate 
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exHLines
	.SelBackColor = RGB(240,250,240)
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	With .Chart
		.SelBackColor = RGB(240,250,240)
	End With
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"Cell 1.1"
		.InsertItem h,,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"Cell 2.1"
		.InsertItem h,,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( "Handle" )
		Debug.Print( h )
		Debug.Print( "Index" )
		Debug.Print( .Items.ItemToIndex(h) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exHLines
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"Cell 1.1"
		.InsertItem h,,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"Cell 2.1"
		.InsertItem h,,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With G2antt1
		Debug.Print( .ColumnFromPoint(-1,0) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "P1"
	.Columns.Add "P2"
	.DrawGridLines = exAllLines
	With .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With G2antt1
		Debug.Print( .ColumnFromPoint(-1,-1) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exAllLines
	.Columns.Add "P1"
	.Columns.Add "P2"
	With .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.CellCaption(h,c) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"Cell 1.1"
		.InsertItem h,,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"Cell 2.1"
		.InsertItem h,,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineStyle = GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Columns.Add "C3"
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.2"
		.CellValue(h,2) = "SubItem 1.3"
		h = .AddItem("Item 2")
		.CellValue(h,1) = "SubItem 2.2"
		.CellValue(h,2) = "SubItem 2.3"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineColor = RGB(220,220,220)
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesBehind
		.LevelCount = 2
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = RGB(220,220,220)
		End With
		With .Bars.Item("Task")
			.Pattern = exPatternSolid
			.Height = 14
		End With
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineStyle = exGridLinesDash
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesDash
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		With .Level(0)
			.GridLineColor = RGB(255,0,0)
			.GridLineStyle = exGridLinesVSolid
		End With
		.Bars.Item("Task").Pattern = exPatternSolid
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineStyle = exGridLinesSolid
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesSolid
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = exPatternSolid
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
	.EndUpdate 
End With

With G2antt1
	.DrawGridLines = exAllLines
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = exPatternSolid
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #12/28/2009#
		.LevelCount = 2
		.Level(0).Label = "Week: <%ww%>/<%yyyy%>"
		.FirstWeekDay = exMonday
	End With
End With

With G2antt1
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/6/2001#
		.AddBar .AddItem("Task 2"),"Task",#1/3/2001#,#1/7/2001#
		.AddBar .AddItem("Task 3"),"Task",#1/4/2001#,#1/8/2001#
		.AddBar .AddItem("Task 4"),"Task",#1/6/2001#,#1/10/2001#
	End With
	Debug.Print( .Chart.StartPrintDate )
	Debug.Print( .Chart.EndPrintDate )
End With

With G2antt1
	.BeginUpdate 
	.Items.AllowCellValueToItemBar = True
	With .Columns
		.Add "Task"
		With .Add("Percent")
			.Editor.EditType = SpinType
			.Def(exCellValueToItemBarProperty) = 518
		End With
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.Bars.Add "Task%Progress"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task%Progress",#1/2/2001#,#1/6/2001#
		.CellValue(h,1) = 40
		h = .AddItem("Task 2")
		.AddBar h,"Task%Progress",#1/2/2001#,#1/6/2001#
		.CellValue(h,1) = 50
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 64
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramView = exHistogramSelectedBars
		.HistogramHeight = 32
		.Bars.Item("Task").HistogramPattern = exPatternBDiagonal
	End With
	.Columns.Add "Column"
	With .Items
		.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,1
		.AddBar .AddItem("Item 2"),"Task",#1/4/2001#,#1/7/2001#,2
		.AddBar .AddItem("Item 3"),"Task",#1/2/2001#,#1/6/2001#,3
		.ItemBar(0,2,exBarSelected) = True
		.ItemBar(0,3,exBarSelected) = True
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/8/2001#,"K1","Unselectable"
		.ItemBar(h1,"K1",exBarSelectable) = False
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1","Fixed"
		.ItemBar(h1,"K1",exBarCanResize) = False
		.ItemBar(h1,"K1",exBarCanMove) = False
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"TaskF",#1/2/2001#,#1/4/2001#,"K1"
		.ItemBar(h1,"K1",exBarCanResize) = False
		.ItemBar(h1,"K1",exBarCanMove) = False
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"TaskF",#1/2/2001#,#1/4/2001#,"K3"
		.ItemBar(h3,"K3",exBarCanResize) = False
		.ItemBar(h3,"K3",exBarCanMove) = False
		.AddLink "L2",h2,"K2",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/1/2001#,#1/3/2001#,"K1"
		.ItemBar(h1,"K1",exBarKeepWorkingCount) = True
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.ItemBar(h2,"K2",exBarKeepWorkingCount) = True
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.ItemBar(h3,"K3",exBarKeepWorkingCount) = True
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "link delays the bars<br>for <b>2</b> working days"
		.Link("L2",exLinkPDMWorkingDelay) = 2
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.ShowNonworkingDates = False
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "   Finish-Start<br>delayed <b>4</b> days"
		.Link("L2",exLinkPDMDelay) = 4
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.ItemBar(h1,"K1",exBarKeepWorkingCount) = True
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.ItemBar(h2,"K2",exBarKeepWorkingCount) = True
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.ItemBar(h3,"K3",exBarKeepWorkingCount) = True
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "FS"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "SF"
		.Link("L2",exLinkStartPos) = 0
		.Link("L2",exLinkEndPos) = 2
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "SS"
		.Link("L2",exLinkStartPos) = 0
		.Link("L2",exLinkEndPos) = 0
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "FF"
		.Link("L2",exLinkStartPos) = 2
		.Link("L2",exLinkEndPos) = 2
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "FS"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddLink "L2",h3,"K3",h2,"K2"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.FilterBarPromptVisible = True
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add ""
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add ""
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = .VisibleItemCount
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptPattern
	.FilterBarPromptPattern = "lon* seat*"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = FilterPromptEnum.exFilterPromptStartWords Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london davolio"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london nancy"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "Anne"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptContainsAny
	.FilterBarPromptPattern = "london seattle"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exFilterPromptContainsAll
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPrompt = "changed"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(0,"<*>",exBarSelected) = True
		.ItemBar(0,"<*>",exBarSelected) = False
	End With
End With

With G2antt1
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1K","K1K"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2M","K2M"
		.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"K3K","K3K"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(0,"<K*K>",exBarSelected) = True
	End With
End With

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(h,"<K*>",exBarSelected) = True
	End With
End With

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(h,"<*>",exBarSelected) = True
	End With
End With

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"P","P"
		.ItemBar(0,"<P>",exBarSelected) = True
	End With
End With

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(0,"<*>",exBarSelected) = True
	End With
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 0
		.LevelCount = 3
		.FirstWeekDay = exMonday
		.Level(0).Label = "Week: <%ww%>"
		With .Level(1)
			.Label = "<%dddd%>"
			.Alignment = CenterAlignment
		End With
		.Level(2).Label = 65536
		.NonworkingHours = 16773375
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
		.AllowInsideZoom = True
		With .DefaultInsideZoomFormat
			.InsideUnit = exMinute
			.InsideLabel = "<b><%nn%></b>"
		End With
		.InsideZooms.Add #1/1/2001 10:00:00 AM#
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.DefaultItemHeight = 22
	.Columns.Add "InterectBars"
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").OverlaidType = exOverlaidBarsOffset
	End With
	With .Items
		h = .AddItem("")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A","A"
		.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B","B"
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"A","A"
		.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"B","B"
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"B","B"
		.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"A","A"
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 164
		.FirstWeekDay = exMonday
		.LevelCount = 2
		.UnitScale = exHour
		.NonworkingHours = 1
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/1/2001#)
		.ItemNonworkingUnits(h,False) = "hour(value) >0 "
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h)
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 164
		.FirstWeekDay = exMonday
		.LevelCount = 2
		.UnitScale = exHour
		.NonworkingHours = 1
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/1/2001 1:00:00 AM#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 128
		.FirstWeekDay = exMonday
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/1/2001#)
		.ItemNonworkingUnits(h,False) = "weekday(value) in (1)"
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h)
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 128
		.FirstWeekDay = exMonday
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/6/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/3/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = exAllLines
		.FirstWeekDay = exMonday
		.Level(0).Label = "Week: <%ww%>"
		With .Level(1)
			.Label = "<%d%>/<%m2%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Default")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/3/2002 10:00:00 AM#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = exAllLines
		.FirstWeekDay = exMonday
		.Level(0).Label = "<%ww%>"
		With .Level(1)
			.Label = "<%dd%>"
			.Unit = exHour
			.Count = 24
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidth = 32
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Default")
		.AddBar h,"Task",#1/4/2002 10:00:00 AM#,#1/8/2002 2:00:00 AM#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/3/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = exAllLines
		With .Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -24
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Default")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
		h = .AddItem("Friday")
		.AddBar h,"Task",#1/3/2002#,#1/7/2002 0:00:00 PM#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
		.ItemNonworkingUnits(h,False) = "weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14"
		h = .AddItem("Till 13")
		.AddBar h,"Task",#1/4/2002#,#1/7/2002 0:00:00 PM#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
		.ItemNonworkingUnits(h,False) = "weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13"
	End With
	.EndUpdate 
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
	End With
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		With .Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -24
	End With
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		With .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = 8
	End With
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
	End With
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
	End With
End With

With G2antt1
	.BeginUpdate 
	With .Columns
		.Add "Tasks"
		With .Add("Working")
			.Def(exCellValueToItemBarProperty) = 258
			.Def(exCellValueToItemBarKey) = "A"
			.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.PaneWidth(False) = 96
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = "<%hh%>"
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
		h = .AddItem("Task 2")
		.AddBar h,"Task",#1/3/2002#,#1/4/2002#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesGeometric
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%ddd%>"
			.Alignment = CenterAlignment
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -40
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		.ItemBar(h,"A",exBarKeepWorkingCount) = True
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn"
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars.Item("Task")
		.Color = &H1000000
		.Height = 15
	End With
	.Chart.PaneWidth(False) = 0
	With .Items
		h = .AddItem("Task")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,""
		.ItemBar(h,"",exBarColor) = 65535
		h = .AddItem("Task")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,""
		.ItemBar(h,"",exBarColor) = 255
	End With
	.EndUpdate 
End With

With G2antt1
	.GridLineColor = RGB(240,240,240)
	With .Chart
		.PaneWidth(False) = 0
		.DrawGridLines = exAllLines
		.NonworkingDays = 0
		.LevelCount = 2
		With .Level(0)
			.DrawGridLines = True
			.GridLineColor = RGB(0,0,0)
		End With
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = RGB(240,240,240)
		End With
	End With
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #12/1/2009#
		.UnitWidth = 22
		.LevelCount = 3
		.Level(0).Label = "<%yyyy%>"
		.Level(1).Label = "<%mm%>/<%dd%>"
		With .Level(2)
			.Label = "<%AM/PM%>"
			.Count = 12
		End With
	End With
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .DefaultInsideZoomFormat
			.PatternChart = exPatternBDiagonal
			.PatternColorChart = RGB(255,0,0)
		End With
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 18
			.Add(#1/4/2008#).AllowInsideFormat = False
		End With
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesGeometric
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = CenterAlignment
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesGeometric
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = CenterAlignment
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidth = 32
		.UnitWidthNonworking = 12
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesGeometric
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = CenterAlignment
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesGeometric
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = CenterAlignment
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
	End With
	.EndUpdate 
End With

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2001#
		.UnitWidth = 48
		.LevelCount = 2
		With .Level(1)
			.Label = "<%d%>"
			.Unit = exHour
			.Count = 24
		End With
		.NonworkingHours = 127
	End With
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstWeekDay = exMonday
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
		.UnitWidthNonworking = -8
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '.' : value"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(h,"<*>",exBarColor) = 255
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstWeekDay = exMonday
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
		.UnitWidthNonworking = 4
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(h,"<*>",exBarColor) = 255
	End With
	.EndUpdate 
End With

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstWeekDay = exMonday
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.DrawGridLines = exVLines
		.Level(0).DrawGridLines = True
		.GridLineStyle = exGridLinesGeometric
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(h,"<*>",exBarColor) = 255
	End With
	.EndUpdate 
End With